home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00238_Script_GESTION_LOGOS_RUBRIQUE < prev    next >
Text File  |  2004-12-05  |  3KB  |  89 lines
  1. global gChoixrub, gL_mobidata,gpiste_logo
  2. property p_cettePiste, p_Nodepiste,p_nom_Acteur,p_flagChoix, pmemchoix,pmyTimer0
  3. property pmode,pmem_titre
  4. ----------------------------------
  5. on getPropertyDescriptionList
  6.   --la version 2 fonctionne α partir di mobiclic 65
  7.   return [#pmode:[#comment:"version 1 ou 2 ?",#format:#integer,#default: 2 ]]
  8. end getPropertyDescriptionList
  9. ---------------------------------
  10. on beginsprite me
  11.   p_Nodepiste = me.spriteNum
  12.   p_cettePiste = sprite(p_Nodepiste)
  13.   p_nom_Acteur = p_cettePiste.member.name
  14.   p_flagChoix = 0
  15.   pmemchoix = 0
  16.   gpiste_logo = p_Nodepiste
  17. end
  18. ----------------------------------- 
  19. on mouseEnter
  20.   if the pauseState = 1 then exit
  21.   case(pmode) of
  22.     1:
  23.       if voidP(gChoixrub) then exit
  24.       cursor 280
  25.     2:
  26.       pmem_titre = member("TITRE_RUB").text
  27.       cursor 280
  28.       member("TITRE_RUB").text = "Autre rubrique"
  29.   end case
  30. end
  31. ----------------------------------- 
  32. on mouseLeave
  33.   if the pauseState = 1 then exit
  34.   cursor -1
  35.   if pmode = 2 and not(voidP(pmem_titre)) then
  36.     member("TITRE_RUB").text = pmem_titre
  37.   end if
  38. end
  39. ----------------------------------- 
  40. on mouseUp
  41.   if the pauseState = 1 then exit
  42.   case(pmode) of
  43.     1:--valable jusqu'α MOBICLIC 64
  44.       if voidP(gChoixrub) then exit
  45.       cursor -1
  46.       n = gChoixrub
  47.       gChoixrub = VOID
  48.       temp = string(gL_mobidata[2].getPropAt(n))
  49.       if gL_mobidata[1][3].getPos(temp) = 0 then-- si la rubrique n'est pas dΘsactivΘe
  50.         tell the stage
  51.           goOtherRub(temp ,0)
  52.         end tell
  53.       end if
  54.     2:--valable α partir de MOBICLIC 65
  55.       if not(voidP(pmem_titre)) then
  56.         member("TITRE_RUB").text = pmem_titre
  57.       end if
  58.       go "CHANGE_RUB_"&gimme2digits(zfamily())
  59.   end case
  60. end
  61. ----------------------------------- 
  62. on exitFrame me
  63.   case(pmode) of
  64.     1:--valable jusqu'α MOBICLIC 64
  65.       if not(voidP(gChoixrub)) and p_flagChoix = 0 then
  66.         pmemchoix = gChoixrub
  67.         pmyTimer0 = the ticks
  68.         p_flagChoix = 1
  69.       end if    
  70.       if p_flagChoix = 1  then
  71.         if the ticks - pmyTimer0 >= 200 then
  72.           p_flagChoix = 0 
  73.           sprite(1).member = "logo"&localparam("COORD",5)
  74.           gChoixrub = VOID
  75.           updateStage
  76.         else
  77.           if gChoixrub <> pmemchoix then
  78.             p_flagChoix = 0 
  79.             p_flagChoix = 0 
  80.           end if
  81.         end if
  82.       end if
  83.       pass
  84.     2:--valable α partir de MOBICLIC 65
  85.       --nothing
  86.   end case
  87. end
  88. --------------------------------------
  89.